From: Paul Eggert <eggert@cs.ucla.edu>
Date: Sun, 6 Dec 2015 22:54:29 +0000 (-0800)
Subject: Port mod-test to 32-bit Emacs --without-wide-int
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~23^2~1333
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=ace6c2530e32720fb8b9b8ead5f117c7ed382864;p=emacs.git

Port mod-test to 32-bit Emacs --without-wide-int

* modules/mod-test/test.el (mod-test-sum-test):
Bring back the 2**29 tests, but port them to 32-bit Emacs
--without-wide-int.
---

diff --git a/modules/mod-test/test.el b/modules/mod-test/test.el
index c1defae9bd7..69bf933c7f9 100644
--- a/modules/mod-test/test.el
+++ b/modules/mod-test/test.el
@@ -46,6 +46,11 @@
              (1- most-positive-fixnum)))
   (should (= (mod-test-sum 1 most-negative-fixnum)
              (1+ most-negative-fixnum)))
+  (when (< #x1fffffff most-positive-fixnum)
+    (should (= (mod-test-sum 1 #x1fffffff)
+               (1+ #x1fffffff)))
+    (should (= (mod-test-sum -1 #x20000000)
+               #x1fffffff)))
   (should-error (mod-test-sum 1 most-positive-fixnum)
                 :type 'overflow-error)
   (should-error (mod-test-sum -1 most-negative-fixnum)